BBS in a Box 3/BBS in a box - Trilogy III.iso/Files/Util/Sd-Sm/ShowPages 1.4.1 ƒ/ShowPages 1.4.1/ShowPages 1.4.1.rsrc/TEXT_132_bb.ps.txt

Text File | 1993-05-14 | 5.3 KB | 832 lines

%! Adobe packPS Version 2.0 (9)

50
dict
/$BoundingBox
exch
def
$BoundingBox
begin
/xdef
{
exch
def
}
def
/xstore
{
exch
store
}
def
/addcoords
{
exch
4
-1
roll
add
3
1
roll
add
}
def
/-stroke
/stroke
load
def
/-fill
/fill
load
def
/-eofill
/eofill
load
def
/-image
/image
load
def
/-show
/show
load
def
/-awidthshow
/awidthshow
load
def
/-showpage
/showpage
load
def
/-restore
/restore
load
def
/-imagemask
/imagemask
load
def
end
/stroke
{
$BoundingBox
begin
gsave
initmatrix
(stroke called\n)
traceprint
{
strokepath
0
setlinejoin
flattenpath
}
stopped
{
(Can't set up a strokepath\n)
traceprint
grestore
gsave
}
if
includepath
grestore
-stroke
end
}
def
/fill
{
$BoundingBox
begin
gsave
(fill called\n)
traceprint
includepath
grestore
-fill
end
}
def
/eofill
{
$BoundingBox
begin
gsave
(eofill called\n)
traceprint
includepath
grestore
-eofill
end
}
def
/show
{
$BoundingBox
begin
(show called\n)
traceprint
0
0
0
0
0
6
-1
roll
awidthshow
end
}
def
/widthshow
{
$BoundingBox
begin
(widthshow called\n)
traceprint
0
0
3
-1
roll
awidthshow
end
}
def
/ashow
{
$BoundingBox
begin
(ashow called\n)
traceprint
0
0
0
6
3
roll
awidthshow
end
}
def
/awidthshow
{
$BoundingBox
begin
gsave
6
(awidthshow:)
debug
currentpoint
2
copy
/@starty
xdef
/@startx
xdef
2
index
stringwidth
addcoords
2
index
length
dup
6
index
mul
exch
5
index
mul
addcoords
5
index
3
index
chcount
dup
9
index
mul
exch
8
index
mul
addcoords
/@endy
xdef
/@endx
xdef
fontheight
@startx
@starty
addcoords
/@starty
xdef
/@startx
xdef
@endx
@endy
addcoords
/@endy
xdef
/@endx
xdef
newpath
@startx
@starty
moveto
@endx
@starty
lineto
@endx
@endy
lineto
@startx
@endy
lineto
closepath
includepath
grestore
-awidthshow
end
}
def
/image
{
$BoundingBox
begin
(image called\n)
traceprint
gsave
newpath
0
0
moveto
1
0
rlineto
1
1
rlineto
-1
0
rlineto
closepath
includepath
grestore
-image
end
}
def
/imagemask
{
$BoundingBox
begin
(imagemask called\n)
traceprint
gsave
newpath
0
0
moveto
1
0
rlineto
1
1
rlineto
-1
0
rlineto
closepath
includepath
grestore
-imagemask
end
}
def
/framedevice
{
pop
pop
pop
pop
}
def
/restore
{
$BoundingBox
begin
(restore called\n)
traceprint
tracedump
bbox-llx
bbox-lly
bbox-urx
bbox-ury
5
-1
roll
-restore
/bbox-ury
xstore
/bbox-urx
xstore
/bbox-lly
xstore
/bbox-llx
xstore
end
}
def
$BoundingBox
begin
/temp-string
10
string
def
end
/showpage
{
$BoundingBox
begin
initgraphics
(showpage\n)
traceprint
dump-bbox
/bbox-llx
round_down
/bbox-lly
round_down
/bbox-ury
round_up
/bbox-urx
round_up
bbox-llx
bbox-lly
moveto
bbox-llx
bbox-ury
lineto
bbox-urx
bbox-ury
lineto
bbox-urx
bbox-lly
lineto
closepath
bwstroke
0
setgray
/Courier
findfont
10
scalefont
setfont
bbox-llx
36
max
bbox-lly
12
sub
36
max
moveto
(%%BoundingBox: )
-show
bbox-llx
temp-string
cvs
-show
( )
-show
bbox-lly
temp-string
cvs
-show
( )
-show
bbox-urx
temp-string
cvs
-show
( )
-show
bbox-ury
temp-string
cvs
-show
bbox-llx
36
max
bbox-ury
12
add
740
min
moveto
(%%BoundingBox: )
-show
bbox-llx
temp-string
cvs
-show
( )
-show
bbox-lly
temp-string
cvs
-show
( )
-show
bbox-urx
temp-string
cvs
-show
( )
-show
bbox-ury
temp-string
cvs
-show
init
-showpage
tracedump
end
}
def
$BoundingBox
begin
/init
{
/bbox-llx
99999
store
/bbox-lly
99999
store
/bbox-urx
-99999
store
/bbox-ury
-99999
store
}
def
/bbox-llx
0
def
/bbox-lly
0
def
/bbox-urx
0
def
/bbox-ury
0
def
/includepath
{
(Adding a path: )
traceprint
gsave
initmatrix
{
0
setlinejoin
flattenpath
}
stopped
{
(Couldn't flatten the path\n)
traceprint
grestore
gsave
initmatrix
}
if
{
pathbbox
}
stopped
not
{
4
2
roll
2
copy
dump-coord
dup
bbox-lly
lt
{
/bbox-lly
xstore
}
{
pop
}
ifelse
dup
bbox-llx
lt
{
/bbox-llx
xstore
}
{
pop
}
ifelse
(; )
traceprint
2
copy
dump-coord
(\n)
traceprint
dup
bbox-ury
gt
{
/bbox-ury
xstore
}
{
pop
}
ifelse
dup
bbox-urx
gt
{
/bbox-urx
xstore
}
{
pop
}
ifelse
dump-bbox
}
if
grestore
}
def
/bwstroke
{
0
setlinewidth
1
setgray
[5]
0
setdash
gsave
-stroke
grestore
0
setgray
[5]
5
setdash
-stroke
}
def
/chcount
{
0
exch
{
2
index
eq
{
1
add
}
if
}
forall
exch
pop
}
def
/fontheight
{
currentfont
begin
/FontBBox
load
aload
pop
exch
pop
0
exch
FontMatrix
transform
4
2
roll
exch
pop
0
exch
FontMatrix
transform
end
}
def
/round_up
{
dup
load
ceiling
cvi
store
}
def
/round_down
{
dup
load
floor
cvi
store
}
def
/binddefinition
{
dup
where
{
exch
2
copy
get
bind
put
}
{
undefined
}
ifelse
}
def
/min
{
2
copy
ge
{
exch
}
if
pop
}
def
/max
{
2
copy
lt
{
exch
}
if
pop
}
def
/$tracedict
where
{
pop
/debug
{
traceprint
(\n)
traceprint
dup
1
add
copy
{
(    )
traceprint
trace=
(\n)
traceprint
}
repeat
pop
}
def
/dump-coord
{
(\()
traceprint
exch
trace=
(, )
traceprint
trace=
(\))
traceprint
}
def
/dump-bbox
{
(Bounding Box: )
traceprint
bbox-llx
bbox-lly
dump-coord
(; )
traceprint
bbox-urx
bbox-ury
dump-coord
(\n)
traceprint
}
def
tracebegin
}
{
/traceprint
{
pop
}
def
/dump-coord
{
pop
pop
}
def
/dump-bbox
{
}
def
/debug
{
pop
pop
}
def
/tracedump
{
}
def
}
ifelse
/xdef
binddefinition
/xstore
binddefinition
/addcoords
binddefinition
/stroke
binddefinition
/fill
binddefinition
/eofill
binddefinition
/show
binddefinition
/widthshow
binddefinition
/ashow
binddefinition
/awidthshow
binddefinition
/image
binddefinition
/showpage
binddefinition
/init
binddefinition
/includepath
binddefinition
/bwstroke
binddefinition
/chcount
binddefinition
/fontheight
binddefinition
/debug
binddefinition
/dump-coord
binddefinition
/dump-bbox
binddefinition
init
end